Great Canadian Scientists/GCS_CD.iso/mac/PC/GCSData/atom_g.dxr/00008_Vibration Script.ls

Text File | 1996-09-01 | 551 b | 16 lines

on exitFrame
  global CentreX, CentreY, loop, Energy
  go(the frame)
  set loop to loop + 1
  if loop >= 22 then
    set loop to 1
  end if
  set CentreX to 640 / 2
  set CentreY to 480 / 2
  set the locH of sprite 7 to integer(CentreX + (50 * line loop of field "A2X"))
  set the locV of sprite 7 to integer(CentreY + (55 * line loop of field "A2Y"))
  set the locH of sprite 8 to integer(CentreX + (50 * line loop of field "A3X"))
  set the locV of sprite 8 to integer(CentreY + (55 * line loop of field "A3Y"))
  puppetTempo(10 * (7 - Energy))
end